home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ozsi 10
/
Ozsi_10_1998_Tide_Side_C.d64
/
save ml
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
22 lines
10 rem - 'save ml/4' using kernal rom routines. elaine 12/95
20 iffthen110
30 a=53280:pokea,1:pokea+1,1:poke646,6:printchr$(142)"[147]saving machine language from memory:
50 [153]"(1) ml is to be saved from memory":[153]"(2) ml on disk is to be copied
70 gosub240:onagoto160,80:goto70
80 na$="load":gosub250:open2,8,2,f$:get#2,bh$,bh$:n$=chr$(0)
90 bl=asc(bl$+n$):bh=asc(bh$+n$):print#2:close2:f=1:loadf$,8,1
110 el=peek(174):eh=peek(175):print"do you wish to modify this prg?":gosub240:ifa$="y"then270
130 na$="save":gosub250:print"ok. insert destination disk and press
140 [153]"any key to continue":[141]240:[137]210
160 na$[178]"save":[141]250:[133]"beginning address";ba$:[139]ba$[178]"*"[167][128]
170 ba[178][197](ba$):bh[178][181](ba[173]256):bl[178]ba[171](bh[172]256)
180 [133]"actual ending address";ea$:[139]ea$[178]"*"[167][128]
190 ea[178][197](ea$):ea[178]ea[170]1:eh[178][181](ea[173]256):el[178]ea[171](eh[172]256):[151]174,el:[151]175,eh
210 [151]193,bl:[151]194,bh:[158]57812f$,8:[158]62954:[159]15,8,15:[132]15,e,ff$,g,h:[160]15:[153]""ff$:[128]
240 [146]198,1:[161]a$:a[178][197](a$):[142]
250 [153]"(* to exit)":[153]"filename to "na$;:[133]f$:[139]f$[178]""[176]f$[178]"*"[167][128]
260 [142]
270 [153]"ok. for this prg":[153]"ba ="bl[170]256[172]bh"and ea+1 ="el[170]256[172]eh
280 [153]"prg is in memory at those locations.
290 print"make modifications and rerun this prg